
set LIBP $env(AIOSS_HOME)/lib
load $LIBP/libloginit.so
load $LIBP/libxframe.so
load $LIBP/libTxtTcl.so
#load $LIBP/libcallprc.so

set _bms_proto_convert ""
proc _GET_BMS_PROTO_CONVERT {} {
	global _bms_proto_convert
	set s_proto_convert [ti::query "select IMDUID, trim(PTXNCD), FORMID, trim(PARAM_LIST), trim(RESULT_LIST) from bms_proto_convert where 1=:f1" "\{s f1 1\}"]
	set serial "\{BMS_PROTO_CONVERT \{$s_proto_convert\}\}"
	set _bms_proto_convert $serial
	return $serial;	
}

